home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / apps.ap < prev    next >
Encoding:
Text File  |  1993-05-25  |  2.1 KB  |  38 lines
  1. {
  2. if  (lastrecord != substr($0,1,40))
  3.         {
  4.         print("<NREC>")
  5.         printf("<SUMM>%s      %s        %s   %s %s    800/%s\n",substr($0,1,30),substr($0,120,1),substr($0,108,2),substr($0,122,3),substr($0,126,7),substr($0,138,7))
  6.         if(substr($0,1,1) != " "){printf("<NAME>%s\n",substr($0,1,30))}
  7.         if(substr($0,31,1) != " "){printf("<ADD1>%s\n",substr($0,31,30))}
  8.         if(substr($0,61,1) != " "){printf("<ADD2>%s\n",substr($0,61,30))}
  9.         if(substr($0,91,1) != " "){printf("<CITY>%s\n",substr($0,91,17))}
  10.         if(substr($0,108,1) != " "){printf("<STAT>%s\n",substr($0,108,2))}
  11.         if(substr($0,110,1) != " "){printf("<ZIP>%s\n",substr($0,110,10))}
  12.         if(substr($0,120,1) != " "){printf("<CTRY>%s\n",substr($0,120,1))}
  13.         if(substr($0,122,1) != " "){printf("<AREA>%s\n",substr($0,122,3))}
  14.         if(substr($0,126,1) != " "){printf("<PHONE>%s\n",substr($0,126,7))}
  15.         if(substr($0,138,1) != " "){printf("<800>%s\n",substr($0,138,7))}
  16.         if(substr($0,146,1) != " "){printf("<FAREA>%s\n",substr($0,146,3))}
  17.         if(substr($0,150,1) != " "){printf("<FPHONE>%s\n",substr($0,150,7))}
  18.         if(substr($0,157,1) != " "){printf("<DESC>\n%s\n",substr($0,157,50))}
  19.         if(substr($0,207,1) != " "){printf("%s\n",substr($0,207,50))}
  20.         if(substr($0,257,1) != " "){printf("%s\n",substr($0,257,50))}
  21.         if(substr($0,307,1) != " "){printf("%s\n",substr($0,307,50))}
  22.         if(substr($0,357,1) != " "){printf("%s\n",substr($0,357,50))}
  23.         if(substr($0,407,1) != " "){printf("%s\n",substr($0,407,50))}
  24.         if(substr($0,457,1) != " "){printf("%s\n",substr($0,457,50))}
  25.         if(substr($0,507,1) != " "){printf("%s\n",substr($0,507,50))}
  26.         if(substr($0,557,1) != " "){printf("%s\n",substr($0,557,50))}
  27.         if(substr($0,607,1) != " "){printf("%s\n",substr($0,607,50))}
  28.         if(substr($0,657,1) != " "){printf("<PROD>%s\n",substr($0,657,50))}
  29.         lastrecord = substr($0,1,40)
  30.         }                                    
  31.         else
  32.         {
  33.         if(substr($0,657,1) != " "){printf("<PROD>%s\n",substr($0,657,50))}
  34.         lastrecord = substr($0,1,40)
  35.         }
  36. }
  37.           
  38.